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Il primo settimanale di software su carta per il tuo 
personal computer. Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 

Nàto in edizione unica, per i più diffusi homo 
e personal computer, dal 4 Aprile, allo ^ | V 

stesso prezzo, sono in edicola le versioni 
dedicateJai calcolatori Commodore, 

Sinclair e tin’edizione esclusiva 
dedicata ai personal Apple, Texas 
TI99/4A e ai sistemi MSX. Puoi anche 
abbonarti dal 4 Aprile al 31 Dicembre 
riceverai così, comodamente a casa con 
un notevole risparmio, 38 numeri del 
settimanale. Chi si abbona riceverà ogni 
15 giorni 2 numeri di PaperSo/f in 
anticipo rispetto all’uscita in edicola. 

NON PERDERE QUESTA OCCASIONE! / ÉBÉ oisV 1 ' 
Compila subito il coupon sotto riportai 
e spediscilo a: 


\lsoft. 

Viale Restelli, 5-20124 Milano 


Tagliando abbonamento a PAPERSoft da inviare in busta chiusa a: 
J.soft - Viale Restelli, 5 - 20124 MILANO 


□ Abbonamento a 38 numeri di PAPERSoftal prezzo speciale di L. 30.000 anziché L.' s 

□ edizione Sinclair (PS01) □ edizione Commodore (PC01) □ edizione Apple/TI99/MSX (PV01) 

| □ contanti allegati □ assegno allegato n._ 

- □ ho versato l'importo sul c.c.p. n. 19445204 intestato a J .soft- MILANO 
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5 Hcli Bomber (VIC 80) 

di R Bush trad e adatt di Alborelli 

7 Scocchi (3K rom) 

di R wooicock trad e adatt di F Saremo 


éà Q Conan - prima parte (CM) 

M w di L Sever 
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ilO di W Robertson trad e adatt di F Sarcma 

AA lavasioac(joystick opx.) 

4# V di m Fitzpatrick trad e adatt di F Sarcma 


CIÓK-plUS/4 


d A Caleadari - prima parte (C1é-plas/4 stampaate) 

llr di PC Lin trad e adatt di F Sarcina 
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I 9 trad e adatt di F Sarcma 
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Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono "parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

(HOME} 
{SU} " 
{GIU' } 
{SIN} 
{DES} 

{RVS} 
{OFF} 
{BLK} 
{WHT } 
{RED} 


SHIFT 

'1 

ClB/HOMt] 




cm/HOMt] 


pgu 

SMIFI 


n CRSR U 




(ì CRSR 11] 


HHHH 

[ SHIFT 

1 

^CRSR =»] 


phbhé 


C= CRSR =}] 


CIBI 

CIRI 


[ CIRI 

IH 


CIRI 

1 7 1 

■■■ 


[ CIRI 

vi 


c 

{CYN } 

s 

{PUR} 

□ 

{GRN} 

o 

{BLU} 

II 

{YEL} 

a 

1<1>] 

R 

[<2>] 


1 [< 3>} 

3 

[ < 4 > ] 

E 

l<5>] 

e 

(<6>J 


[ CIRI 

m 


CIRI 

IH 


CIRI 

; '• ; 

wbm mi 

CIRI 

IH 


[ CIRI 

EJ 


30 

30 

30 

30 

30 

30 



[<7> ] 

I 

( < 8 > ] 

□ 

{FI} 

Q 

{ F2 } 

Si 

{F3 } 

□ 

{F4 } 

15 

{ F5 } 

3 

{ F6 } 

1 i 

{F7 } 

E 

■1 

{ F8 } 


30 

30 

ED 

GB 

03 

03 

03 

KB 

KZD 




Per ricevere gli arretrati di ilt/'tj’J compilare il seguente tagliando: 

K 

Compilare ed inviare in busta chiusa a: 

♦ SO II viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 


Indirizzo 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 





dedicato a. 


Anno 

Anno_ 


a L. 2.000 cad. per un totale di L. . a mezzo 


□ assegno allegato 

X 


□ contanti allegati 
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Heli-Bomber 


iridai) 


E scoppiata improvvisamente la 
guerra e una città nemica ha in¬ 
viato una squadriglia di elicotte¬ 
ri da combattimento per di¬ 
struggere la metropoli. 
Fortunatamente, in previsione 
di questa evenienza, è stata co¬ 
struita, proprio al centro della 
città, una torre fotonica che può 
lanciare proiettili micidiali su 
qualunque oggetto si muova 
nel cielo della città. 

Il giocatore è al comando della 
torretta per sgominare il perico¬ 
lo incombente, e deve abilmen¬ 
te muovere il mirino per distrug¬ 
gere il nemico e le sue armi mici¬ 
diali. 

Gli elicotteri nemici, ad uno ad 
uno, passano sopra la città e 
lanciano delle bombe di media 
potenza. Esse, se toccano un 


palazzo, ne distruggono un pia¬ 
no. Quando rimangono delle 
zone di terreno prive di palazzi 
è necessario stare molto attenti 
poiché se una bomba tocca di¬ 
rettamente il terreno, la città vie¬ 
ne irrimediabilmente distrutta. 
Lo stesso accade se una bomba 
distrugge la torre fotonica. 
Colpendo una bomba si guada¬ 
gnano 10 punti, che vengono 
sommati al punteggio sempre 
aggiornato visualizzato nella 
parte alta dello schermo. È an¬ 
che possibile cercare di colpire 
gli elicotteri. 

Ricordiamo che il programma 
gira su VIC 20 inespanso e che 
fornisce tutte le istruzioni per 
muovere il mirino e sparare. 
Buon divertimento e occhio agli 
elicotteri! 


10 POKE56, 28 :POKE52,28 :POKE55,0 :POKE51,0:CLR:FORT=0TO511 : 

POKE7168+T,PEEK(32768+T):NEXT 
30 PRINT"{CLR}{ 4 SPAZI}{RVS}HELI-BOMBERS" 

35 PRINT"{GIU'}{ 2 SPAZljLA CITTA' E' SOTTO{ 2 SPAZl}L'AT 
TACCO DI ELICOTTE-RI BOMBARDIERI." 

40 PRINT"QUANDO UNA BOMBA COL-{ 3 SPAZI}PISCE IL TERRENO 
0{ 2 SPAZI}LA TUA TORRE FOTONICA,"; 

45 PRINT"{ 2 SPAZI}IL GIOCO TERMINA ." 

50 PRINT"{GIU' }MUOVI IL MIRINO CON I TASTI :":PRINT"{GIU'} 
{ 4 SPAZI}A=SU{ 3 SPAZI}Z=GIU'{ 4 SPAZl}{GIU'} 

{ 3 SPAZI}N=SIN.{ 2 SPAZI}M=DESTRA 
55 PRINT"{GIU'}{ 2 SPAZI}{RVS} SPAZIO {OFF} = FUOCO" 

60 PRINT"{GIU 1 }{RVS}** PREMERE UN TASTO * *":POKE36878,1 5 
70 GETA$: IFA$ = ""THEN7 0 
80 GOSUB2500:PRINT"{BLK}" 
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100 KY=PEEK(197) :L0 = L0+((KY=17)AND(L0>1) )-((KY=33)AND(L0< 

1 5) ) 

105 IFPEEK(8043)=32THEN3000 
107 IFKY=32THEN275 

110 PRINT"{HOME}{BLK}{ 5 SPAZI}PUNTI "SC"{WHT}" 

120 CO=CO+(KY=28)-(KY=36):CO=-CO*(C0<22)-22*(C0<0) 

150 POKE76 80 + 22 *L9+C9,32 :POKE7680+L0*22+CO,43:POKE38400+L 
0*22+C0,7:L9=L0:C9=C0 
160 IFC1>=21THENCl=0:L1=INT(RND(1)*9)+2 
170 Li =Ll - 1 * ( (RND ( 1 ) > . 7 ) AND (Li < 1 0 ) ) 

180 Li=Ll+1 *((RND(1)>.7)AND(Li >2) ) 

190 C1=C1-1* (C1<22) 

200 GOSUB5000 

21 0 IFG=1ANDRND(1)>.8THENL2 = Ll+2:C2=C1 :G=-G:L7 = Ll+2:C7=C2 

215 IFG=1THEN270 
220 L2=L2+1 

2 50 POKE76 80+L7*22+C7,32 :POKE76 80+L2*22+C2, 38 :POKE384 0 0 + 2 

2 *L2+C2,0 

255 L7=L2:C7=C2:IFL2=21THEN3000 

260 IFPEEK(7680+22*(L2+1)+C2)=33THENGOSUB450 

270 IFKY032THEN1 00 

275 X=16:Y=11 

280 X=X+(LO<X):Y=Y+(CO<Y)-(CO>Y):F0RT=150T0230STEP20:POKE 
36875,T:POKE36876,T+ 5 :NEXTT 
2 90 POKE7680 + 22*X+Y, 30 :POKE38400 + 22*X+Y,6 
295 POKE7680+22*X+Y,32 
300 IF(XOLO) OR (YOCO) THEN2 80 
305 POKE36875,0 :POKE36876,0 

310 IF(C0=C1 +1 ANDL0 = L1+1)OR(C0=C1ANDL0 = Ll+1)THENGOSUB4 00 
320 IFC0=C2ANDL0=L2THENGOSUB380 
370 GOTO!00 
380 SC=SC+10 

38 5 FORT=lTOl0 :POKE76 80 + 22*X+Y, 42 :POKE368 75,200:POKE3 6 876 
,200 

390 POKE7680 + 22*X+Y,32:POKE36875,0 :POKE36876,0 :NEXTT:G=-G 
: RETURN 

4 00 FORLÌ=LlT022 :GOSUB5000:POKE36875,255-Ll *5:NEXT:Cl =2 5 
410 POKE36 875,0 : RETURN 

4 50 POKE76 80+22*(L2+1)+C2,32 :POKE7680 + 22*L2+C2,32 :G=-G 
460 FORDL=l TOl 0:FORT=130T0250STEP10 :POKE36877,T:NEXTT,DL: 
POKE36877,0:RETURN 

2 50 0 RESTORE :FORT=0TO55:READN:POKE71 68 + 33*8+T,N:NEXTT 

2510 POKE36879,8 :POKE36869,2 55 

2520 DATA255,!65,165,255,165,165,165.255 

2522 DATA24,126,126,126,60,24,24,255 

2 52 4 DATAI 29,19 5,1 6 5,1 53,1 53,1 65,1 95,1 29 

2526 DATA0,0,195,255,15,7,0,0 

2 52 8 DATAI 28,1 28,224,1 52,252,248,0,0 

2530 DATA36,36,24,24,60,60,60,24 

2540 DATA0,0,0,0,0,0,0,126 
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2600 GOTO9000 

3000 FORT=130T0250:POKE36876,T:POKE36875,370-T:POKE36874, 
T-10 :POKE3687 9, T:NEXTT 
300 7 POKE36874,0:POKE36875,0:POKE36876,0 
3010 PRINT"{CLR}{BLK}{ 4 GIU'}{ 6 SPAZI}FINE GIOCO" 

3020 PRINT"{GIU'JPUNTEGGIO =";SC:IFSC>HSTHENHS=SC:PRINT" 
{GIU'HRVSH 3 SPAZI }UN NUOVO RECORD.": GOTO30 40 
3030 PRINT"{ 2 GIU'}RECORD{ 4 SPAZl}="HS 
3035 FORT=1TO3000 :NEXT 

3040 PRINT"{GIU'}{RVS}** PREMERE UN TASTO **{OFF}{WHT} 
3050 GETA$:IFA$<>""THEN3050 
3060 GETA$:IFA$=""THEN3060 
3070 SC=0:GOSUB9000:GOTOl00 

5000 POKE7680+L8*22+C8,32:POKE7680+L8*22+(C8 + 1) ,32 
5020 POKE7680+(L8+1)*22+C8,32 :POKE76 80+(L8 + 1)*22+(C8+l) ,3 
2 

5100 POKE76 80+Ll*22+Cl,39 :POKE38400+L1*22+Cl,0 
5110 POKE7680+Ll*22+(Cl+1) ,39 :POKE3 8400 + L1*22+(Cl+1) ,0 
5120 POKE7680+(Li+1)*22+(Cl) ,36 :POKE3 8400+(Li+1)*22+(Cl) , 
0 

5130 POKE7 680+(Li+1) *22+ (Cl+1) ,37 :POKE38400+(Li+1)*22+(Cl 
+ 1) ,0 

5140 L8=Ll:C8=Cl:RETURN 

9000 POKE36879,25:PRINT"{CLR}{WHT}" 

9020 FORX=0TO21:R=INT(RND(1)*5)+1+16 

9040 FORY=RT021 :POKE7680+(22*Y)+X,33 :POKE38400 + 22*Y+X,2 
9050 NEXTY,X 

9070 POKE7680 + 1 6*22 + 1 1 ,34 :POKE38400 + 1 6*22 + 1 1 ,7 
90 90 FORX=17T021:POKE76 80+(22*X)+1 1 ,33 :POKE38400 + 22*X+1 1 , 
7 :NEXTX 

9200 L0 = 10:C0 = 11 :POKE7680+L0*2 2+CO,43 :POKE38400+L0*22+CO, 
7 

9210 Li=0:Cl=INT(RND(1)*20):L9=L0:C9=C0:GOSUB5000 
9230 L8 = Ll :C8=Cl :G=1 :H=1 :B=1 : RETURN 


Scacchi 



3K ram 


Quello che vi presentiamo è un 
semplice programma che vi 
consente di giocare a scacchi 
contro il vostro VIC 20 munito 
di una qualsiasi espansione di 


memoria. Comunicate le vostre 
mosse al computer impostando 
le coordinate di partenza e di 
arrivo nel formato (x, y). Sullo 
schermo i pezzi sono rappre- 


i 







sentati dalle loro lettere inizigli) 
voi giocate col bianco ed il VIC 
col rosso. Data l'eseguità del 
programma non potete natural¬ 
mente aspettarvi di avere di 
fronte un avversario forte; se 
tuttavia siete degli scacchisti al¬ 
le prime armi, il divertimento è 
assicurato! 

Tenete tuttavia presente che il 
programma non prevede l'ar¬ 


rocco e le prese "en passant"; 
inoltre siate onesti, perché il 
computer accetta anche le mos¬ 
se illegali, ed abbiate pazienza, 
perché il tempo d'attesa per 
ogni mossa può superare i due 
minuti. Il programma provvede 
a segnalare l'eventuale scacco 
matto,- per sospendere la partita 
battere 999,999 al posto delle 
coordinate. 


10 REM SCACCHI 

20 POKE36879,1 2 

30 PRINT" {CLRHGIU' } {GRN} { 4 SPAZI } ATTENDI PREGO" 

40 KX=5:KY=8:DIMB%(8,8),D%(6,8,2),P%(6),A$(6):F0RY=lT08:F 
ORX=1T08 

50 B%(X,Y)=0 :IFY=1THENREADB%(X,Y) 

60 IFY=8THENB%(X,Y)= -B%(X,l) 

70 IFY=2THENB%(X,Y)= -l 
80 IFY=7THENB%(X,Y)=1 
90 NEXT:NEXT 

100 DATA-4,-2,-3,-5,-6,-3,-2,-4 

1 1 0 F0rtX=lT06:P%(X)=2 :FORY=lT08:IFY<30RY=8THEND% (X,Y,2) =1 

120 IFY>1ANDY< 5THEND%(X,Y,1)=1 
130 IFY>5THEND%(X,Y,1)=-1 
140 IFY>3ANDY< 7THEND%(X,Y , 2)=-1 
150 NEXT: IFX02THEN1 90 

160 FORY =1TO4 : RE ADD %(X,Y,1) ,D% (X,Y,2) :D% (X,Y+4,1) =-D% (X,Y 
,1): D% (X,Y+4,2) =D% (X,Y,2) 

170 NEXT 

180 DATA- 2,1,-l ,2,1 ,2,2,1 
190 IFX=1THENP%(X)=8 
200 IFX>4THENP%(X)=1 

21 0 NEXT:FORX=lT06:READA$(X) :NÈXT 
220 DATAP ,C, A , T , D ,R 

230 PRINT"{CLR}":GOTO620 

240 XB=0:YB = XB:DB = XB:CL=1 :BP = XB:X = 9:AX = KX:AY=KY: Fi$ = "":GO 
SUB7 50: Fi$=F$ 

250 FORY=lT08:FORX=lT08:TB=0:C=1:TY=0:TX=0:D=0 
260 IFB%(X,Y)<1THEN600 

2 70 P = B%(X,Y) : FORI = 1T08:DY=D%(P,1,2) :DX=D%(P,1,1) :AX=KX:A 

Y=KY: CI=1 :PO = 0 

2 80 IFX+DX<1ORX+DX> 80RY+DY<1ORY+DY> 8THEN5 3 0 
290 IFP>2ANDP< 6THEN44 0 
300 IFDY>-1ANDP=1THEN530 
310 IFY>1ORP>lTHEN360 
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320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 0 

520 

530 

540 

550 

560 

570 

580 

590 

600 

61 0 

620 

630 

640 

650 

660 

670 

680 

690 

700 

71 0 

720 

730 


FORI1=5TOlSTEP-1 

IFP%(Il)<2THENP%(Il)=P%(Il)+1 :B%(X,Y)=11 : 11=1 

NEXT 

GOTO530 

IFDXOOANDB% (X+DX,Y+DY) >-lTHEN530 

IFP=6THENKX=X:KY=Y:AX=X+DX:AY=Y+DY:GOSUB740:IFF$="1"T 
HEN530 

IFDX=0ANDB% (X,Y+DY) O0THEN530 
PO = 8-P-B%(X+DX,Y+DY)*3 

IFY< > 70RDX< >0ORB%(X,5)<>OORP>1THEN5 30 
IFF1$="1"THENGOSUB740:IFF$=""THEN530 
IFFl$="1"ORRND(1)>.3THENC1=2 
GOTO530 
Xl=X:Yl=Y 

IFP= 3ANDINT(1/2)*2<ITHEN530 
IFP=4ANDINT(1/2)* 2 = ITHEN530 

IFXl+DX<1ORX1+DX> 80RY1+DY <1ORY1+DY>8THENC1=C1 - 1 :G0T05 
30 

IFB%(XI+DX,Yl+DY)>0THENCl=Cl-1:GOTO530 

PO=8-P+INT(RND(1)*3)-B%(Xl+DX , Yl+DY)*3 

IFFl$="1"THENGOSUB740:IFF$=""THENPO=PO+50:GOTO570 

IFB% (Xl +DX, Yl +DY) O0THEN530 

Cl=C1+1:X1=Xl+DX:Y1=Yl+DY:GOTO470 

IFPO=0THEN570 

IFFl$ = "1"THENGOSUB740 : IFF$=""THENPO = PO+50: GOTO570 

IFFl$=""THENGOSUB740 :IFF$ = "1"THENPO = 0:GOTO570 

IFPO> = TBTHENAX = X+DX*C1 :AY=Y+DY*Cl:GOSUB740:IFF$ = ”1"TH 

ENPO=PO-P*2 

IFPO>TBTHENTB=PO:TX=X:TY=Y:D=I:C=Cl 
NEXT 

IFTB>BPORTB=BPAND(RND(1)>.90R(TY<YBANDRND(1)>.5))THEN 
BP=TB:XB=TX:YB=TY:CL=C:DB=D 

NEXT:NEXT:P=B%(XB,YB):Xl=XB+D%(P,DB,1)*CL:Yl=YB+D%(P, 
DB,2)*CL:IFP=6THENKX=Xl:KY=Yl 

AX=KX:AY=KY:B%(Xl,Yl)=B%(XB,YB):B%(XB,YB)=0:Q=1:GOSUB 

7 50 :Q = 0 

GOSUB840 

IFF$ = "1"THENPRINT"{GIU' }SCACCO MATTO": END 
PRINT"{GRN}{ 2 GIU'}INTRODUCI TUA MOSSA": INPUT" 
{GIU'}DA";X,Y:IFX=999THENEND 
INPUT" A";XB,YB 

IFB%(XB,YB)>0THENP%(B%(XB,YB) )=P%(B%(XB,YB) )- 1 
B%(XB,YB)=B%(X,Y) 

B%(X,Y)=0 

IFB%(XB,YB)<-1ORYB< 8THEN72 0 

INPUT"PEZZO";A$:FORIl=1T05:IFA$(Il)=A$THENB%(XB,YB)=- 
II 

NEXT 
GOSUB840 
GOTO2 4 0 
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740 PC=B%(X+DX*Cl,Y+DY*C1):B%(X+DX*Cl,Y+DY*Cl)=B%(X f Y):B% 
(X,Y)=0 

7 50 F$ = " ":FORP1=1T06:FORIl=1T08: Di=D% (Pi,Il,1) :D2=D%(Pi,I 
1,2):L=1 

760 IFAX+Dl*L<1ORAX+D1*L>80RAY+D2*L<1ORAY+D2*L>8THEN800 
770 IFPl=1ANDD2<1ANDQ=0THEN800 

780 IFB%(AX+Dl*L,AY+D2*L)=-PlTHENF$="1":G0T0810 
790 IFPl>2ANDPl<6ANDB%(AX+Dl*L,AY+D2*L)=0THENL=L+1:G0T076 
0 

800 NEXT:NEXT 
810 IFX>8THEN830 

820 B%(X/Y)=B%(X+DX*Cl,Y+DY*Cl):B%(X+DX*Cl,Y+DY*Cl)=PC 
830 RETURN 

840 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
850 PRINT"{CLR}(GIU'}{ 3 DES}{GRN}{ 5 SPAZI}12345678 
{GIU'}":FORY=8TOlSTEP-1 :PRINT"{ 2 SPAZl}{GRN} 

{ 3 DES}"Y; 

860 FORX=l T08 : IFB% (X,Y) O0THEN890 

870 IFINT((X+Y)/2)*2=X+YTHENPRINT" ";:GOTO920 

880 PRINT"{BLU}{RVS} {OFF}"; :GOTO920 

890 IFB%( X, Y)<OTHENPRINT"{WHT}";:G0T0910 

900 PRINT"{RED}"; 

910 PRINTA$(ABS(B%(X,Y))); 

920 NEXT:PRINT:NEXT:RETURN 


Calendari 

Prima parte 

Vi presentiamo questa settima¬ 
na i primi due di una serie di 
quattro programmi, grazie ai 
quali potrete ottenere ogni tipo 
di calendario col vostro Com¬ 
modore 16, sia su video che su 
carta (è quindi necessaria la 
stampante). 

Programma 1 - Permette di vi¬ 
sualizzare sullo schermo il ca¬ 
lendario di un mese a scelta. 
Programma 2 - Stampa in un so- 


CIÒ-^-plus/4 


Stampante 


lo foglio il calendario di un anno 
intero. 

IMPORTANTE: ricordatevi, 

usando il programma 2, di posi¬ 
zionare la carta in modo che il 
calendario venga stampato su 
un unico foglio e non a cavallo 
tra due fogli. 

Gli altri due programmi verran¬ 
no pubblicati sul prossimo nu¬ 
mero. 


io 














Programma 1 

80 DIMM$(12) :F0RI=1TOl2 :READM$(I) :NEXTI 
90 COLORO,2:COLOR4,3,0 

100 PRINT"{CLR} [<7>] { 2 GIU'}{DES}QUESTO PROGRAMMA PRODUC 
E UN {PUR}CALENDARIO" 

105 PRINT"{DES}MENSILE[<7>] SULLO SCHERMO." 

110 PRINT"{ 2 GIU'}{DES}IMPOSTA IL {RED}MESE[<7>] E L' 
{RED}ANNO[<7>]" 

111 PRINT"{DES}CHE VUOI VEDERE (ESEMPIO: {RED}6,1 985 [<7>] 
) {PUR}{ 2 GIU' }" 

130 PRINT"{DES}"; : INPUTM0,Y:PRINT"{ 2 GIU’}{DES}{PUR}GRAZ 
IE! [<7>] {GIU'}": FORI = 1T0800:NEXT 
292 IFM0 = 1ORM0 = 3ORM0 = 5ORM0 = 7ORM0 = 8ORM0=10ORM0=12THENE1 =31 


293 IFM0 = 4ORM0= 6ORM0 = 9ORM0=11THENEl=30 

294 IFM0=2ANDY/4OINT(Y/4) THENEl =28 

295 IFM0=2ANDY/4=1NT(Y/4)THENGOSUBl400 

297 PRINT"{CLR}{GIU'}{ 10 DES}{RED}";M$(M0);" ";Y;"[<7>]" 


298 GOSUB1 350 :IFA=40THENPRINT 

300 PRINT"{ 11 DES}{RED}D[<7>]{ 2 DES}L{ 2 DES}M{ 2 DES} 

M{ 2 DES}G{ 2 DES}V{ 2 DES}S" 

305 GOSUBl360 
310 D=1 :GOSUBl050 

320 IFDl=7THENFORI=lT028:PRINT"{DES}";:NEXT:PRINTD:IFA=40 
THENPRINT 

321 IFDl=7THEN330 

322 IFDl =6THENFORI = l T02 5:PRINT"{DES}"; :NEXT:PRINTD; : GOTO3 
30 

32 3 IFDl=5THENFORI = lT022:PRINT"{DES}"; :NEXT:PRINTD; : GOTO3 
30 

324 IFDl=4THENFORI=lTOl9:PRINT"{DES}";:NEXT:PRINTD;:GOT03 
30 


325 IFDl= 3THENFORI = 1TO16:PRINT"{DES}" 
30 


:NEXT:PRINTD 


: GOTO3 


326 IFDl=2THENFORI=lTOl3:PRINT"{DES}" 
30 


:NEXT:PRINTD 


: GOTO3 


327 IFDl=1THENPRINT"{DES}{RED}";D;"[<7>]";:GOTO330 

330 FORD=2TOEl:GOSUBl050 

331 IFDl=1ANDD< = 9THENPRINT"{ 10 DES}{RED}";D;"[<7>]"; :GOT 
0345 


332 IFDl=1ANDD>9THENPRINT"{ 9 DES}{RED}";D;"[<7>]"; :GOT03 
45 


333 IFDl=7THEN340 

334 IFD<=9THENPRINTD;:G0T0345 

335 PRINT"{SIN}";D;:G0T0345 

340 IFD>9THENPRINT"{SIN}";D:G0T0345 

341 PRINTD 

345 IFA=40ANDDl=7THENPRINT 

346 NEXTD 

1 045 PRINT:PRINT:FL=1 :GOSUBl 350 :IFA=22THENPRINT"{ 3 SU}" 
1049 PRINT:END 
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1 050 IFM0=1THENM0 = 13:Y=Y-1:GOTOl080 
1 060 IFM0= 2THENM0 = 14 :Y=Y-1 
1 080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1900+INT((Y-l900)/4) 

1150 Di=Dl+INT(19/4)-2*19 

1200 Di=Dl-INT(Dl/7)*7+1 

1210 IFM0 = 4ORM0 = 9THENDl =Dl +1 

1 230 IFM0=13THENM0=1:Y=Y+1 :GOTOl245 

1 240 IFM0= 1 4THENM0 = 2:Y=Y+1:Dl=Dl+1 

1244 IFDl=8THENDl=1 

1 245 IF(Y= 21 00ANDM0>=3)OR(Y>2100)THENDl=Dl-1 :IFDl=0THENDl 
= 7 

1 24 7 IF(Y=2200ANDM0>=3)OR(Y>2200)THENDl=D 1 - 1 :IFDl=0THENDl 
= 7 

1 2 49 IF(Y=2 300ANDM0> = 3)OR(Y>2300)THENDl=Dl-1 :IFDl=0THENDl 
= 7 

1250 RETURN 

1 350 IFFL=OTHENPRINT:PRINT"{ 9 DES}"; : FORI = 1T022 :PRINT"*" 
;:NEXT:PRINT:RETURN 

1 355 IFDl =7THENPRINT"{ 3 SU}":PRINT"{ 9 DES}"; : FORI = 1T022 
SPRINT"*";:NEXT:PRINT:RETURN 

1 358 PRINT" {SU } { 9 DES }";: FORI = 1 T022 : PRINT" *" ;‘: NEXT: PRINT 
: RETURN 

1360 PRINT"{ 9 DES}{ 2 SPAZI}[<T>]{ 2 SPAZI}[<T>] 

{ 2 SPAZI}[<T>]{ 2 SPAZI}[<T>]{ 2 SPAZI}[<T>] 

{ 2 SPAZI}[<T>]{ 2 SPAZI}[<T>]":RETURN 
1400 IF ( Y/l 00 = INT ( Y/l 00 ) ) AND (Y/4000INT (Y/400) ) THENEl = 28: 

GOTOl410 
1 405 El=29 
1410 RETURN 

1 420 DATA"{ 3 SPAZI}GENNAIO" , " { 3 SPAZI}FEBBRAIO" , " 

{ 4 SPAZI}MARZO","{ 4 SPAZI}APRILE" 

1430 DATA"{ 4 SPAZI}MAGGIO","{ 4 SPAZI}GIUGNO"," 

{ 4 SPAZI}LUGLIO","{ 4 SPAZI}AGOSTO" 

1440 DATA"{ 2 SPAZI}SETTEMBRE","{ 3 SPAZI}OTTOBRE"," 

{ 3 SPAZI}NOVEMBRE"{ 3 SPAZI}DICEMBRE" 


Programma 2 

3 COLORO,2:COLOR4 / 3,0 

5 OPEN!,4 :DIMW4(3) sGOSUBl510:1 = 1 :J = 2 

7 PRINT#! ,CHR$(14)SPC(15)"BUON ";Y:PRINT#1 

1 0 PRINT#1 ,CHR$(14)SPC(8)"GENNAIO"SPC(13)"FEBBRAIO" 

1 2 GOSUBl 009 :GOSUBl 000:GOSUBl012‘C0 = 6 :GOSUBl019:GOSUBl000 
:GOSUBl022 

15 M0 = I:M8 = 1:GOSUB292 :GOSUB20: GOTO35 

20 D=1 :GOSUBl 0 50:W2 = 8-Dl :W4(M8)=W2 + 1:GOSUB321 

22 IFD1=7THEN30 

25 FORD = 2TOW2:GOSUBl 050 :GOSUB331 :NEXTD 
30 RETURN 
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3 5 GOSUB990:MO=J:M8 = 2:G0SUB292 :GOSUB20 

44 W3=1 

45 MO = I: M8 = 1:G0SUB292 :GOSUB20 0 

46 IFW4(2)=9THENPRINT#1,CHR$(15)SPC(1); 

50 GOSUB991:M0 =J:M8=2:GOSUB292:GOSUB200 

56 IFW3=1ANDW4(1)>9THENPRINT#1,CHR$(15)SPC(0); 

57 IFW3=1ANDW4(1)<1OTHENPRINT#1,CHR$(15)SPC(1); 

58 IFW3=4ANDW4(2)>3OTHENPRINT#1,CHR$(15)SPC(0); 

65 W3=W3+1 

70 IFW3<C0THEN4 5 

71 PRINT#1," " 

72 IFI=1THEN86 

73 IFI=3THEN96 

74 IFI=5THENl06 

75 IFI=7THENl16 

76 IFI=9THENl26 

77 IFI=11THENl99 

86 PRINT# 1 ,CHR$(14)SPC(9)"MARZO"SPC(15)"APRILE" 

88 1=3:J=4:G0T0l2 

96 PRINT#1,CHR$(14)SPC(8)"MAGGIO"SPC(15)"GIUGNO" 

98 1=5:J=6:GOTOl2 

1 06 PRINT# 1 ,CHR$(14)SPC(8)"LUGLIO"SPC(15)"AGOSTO" 

108 1=7:J=8:GOTOl2 

1 16 PRINT#! ,CHR$(14)SPC(7)"SETTEMBRE"SPC(13)"OTTOBRE" 

118 1=9:J=10:GOTOl2 

1 26 PRINT#1 ,CHR$(14)SPC(7)"NOVEMBRE"SPC(13)"DICEMBRE" 

128 1 = 11 :J = 12:GOTOl2 

199 PRINT#1 ,CHR$(15)SPC(1) :CLOSEl : END 

200 D4=W4(M8):D7=W4(M8)+6 
205 D=D4:GOSUBl050 

212 IFM8=1AND(D + l)<10THENGOSUB52 8 

213 IFM8=1AND(D+l)>9THENGOSUB530 

214 IFM8=2AND(D+l)<1OTHENGOSUB428 

215 IFM8=2ANDD4>=30ANDD4<=ElTHENGOSUB433:GOT0217 

216 IFM8=2AND(D+l)>9THENGOSUB430 

217 FORD=D4+lTOD7:GOSUBl050:GOSUB331:NEXTD 
220 W4(M8)=D7+1 

225 RETURN 

292 IFM0=lORM0=3ORM0=5ORM0=7ORM0=8ORM0=l0ORM0=l2THENEl=31 

293 IFMO=40RMO=60RMO=90RMO=11THENEl=30 

294 IFM0 = 2ANDY/4<>INT(Y/4)THENEl =28 

295 IFM0=2ANDY/4=INT(Y/4)THENGOSUBl400 

296 RETURN 

321 IFD1=7THENPRINT#1,CHR$(15)SPC(36);D;:GOTO330 

322 IFD1=6THENPRINT#1,CHR$(15)SPC(31);D;:GOTO330 

323 IFD1=5THENPRINT#1 ,CHR$(15)SPC (26) ;D;:GOTO330 

324 IFD1=4THENPRINT#1,CHR$(15)SPC(21);D;:GOTO330 

325 IFD1=3THENPRINT#1,CHR$(15)SPC(16);D;:GOTO330 
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326 IFDl=2THENPRINT#1 ,CHR$(15)SPC ( 11) ;D; :GOTO330 
32 7 IFDl=1THENPRINT#! ,CHR$(15)SPC (6) ;D; :GOTO3 3 0 

328 PRINT#!,CHR$(15)SPC(3);D;:GOTO330 

329 PRINT#1 ,CHR$(15)SPC (2) ;D; 

330 RETURN 

331 IFD>ElTHENPRINT#! ,CHR$(15)SPC (5) ;:GOTO3 50 
3 32 IFDl=1ANDD<=9THENPRINT#1 ,D;: GOTO350 

333 IFDl=1ANDD>9THENPRINT#1,D;:GOTO350 

335 IFD<=9THENPRINT#1,CHR$(15)SPC(2);D;:GOTO350 

336 PRINT#1, CHR$(15)SPC(1);D; 

350 RETURN 

428 IFD>E1THENPRINT#1,CHR$(15)SPC(9);:G0T0435 

429 G0T0328 

430 IFD >ElTHENPRINT#! ,CHR$(15)SPC(9) ;:G0T04 3 5 

431 G0T0329 

433 PRINT# 1 , CHR$ (15)SPC(1) ;D; 

435 RETURN 

528 IFD>E1THENPRINT#!,CHR$(15)SPC(9);:G0T0535 

529 G0TO532 

530 IFD>El THENPRINT# 1 ,CHR$(15)SPC(9) ;:G0T0535 

531 G0T0533 

532 PRINT#1,CHR$(15)SPC(5);D;:GOT0535 

533 PRINT#1 ,CHR$(15)SPC(4) ;D; 

535 RETURN 

990 PRINT#! ,CHR$(15)SPC(3) ; :G0T0992 

991 PRINT#! ,CHR$(15)SPC(6) ; 

992 RETURN 

1000 PRINT#1,CHR$(15)SPC(7); 

1001 RETURN 

1009 PRINT#!,CHR$(15)SPC(3); 

1010 PRINT# 1 ,"{ 4 SPAZl}D{ 4 SPAZl}L{ 4 SPAZl}M 

{ 4 SPAZI}M{ 4 SPAZI}G{ 4 SPAZl}V{ 4 SPAZlJS"; 

1011 RETURN 

1012 PRINT#!,"{ 4 SPAZI}D{ 4 SPAZl}L{ 4 SPAZl}M 

{ 4 SPAZI} M { 4 SPAZI}G{ 4 SPAZl}V{ 4 SPAZl}S" 

1013 RETURN 

1019 PRINT#1 ,CHR$(15)SPC(3) ; 

1 020 PRINT# 1 ,"{ 4 SPAZI} [<T>]{ 4 SPAZI} [<T>]{ 4 SPAZI} 

[<T>]{ 4 SPAZI}[<T>]{ 4 SPAZI}[<T>]{ 4 SPAZI}[<T>] 
{ 4 SPAZI}[<T>]"; 

1021 RETURN 

1022 PRINT#!,"{ 4 SPAZI}[<T>]{ 4 SPAZI}[<T>]{ 4 SPAZI} 

[<T>]{ 4 SPAZI}[<T>]{ 4 SPAZI}[<T>]{ 4 SPAZI}[<T>] 
{ 4 SPAZI}[<T>]" 

1023 RETURN 

1050 IFM0=1THENM0=13:Y=Y-1:GOTOl080 
1 060 IFM0= 2THENM0 = 14 :Y=Y-1 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1900+INT((Y-l900)/4) 

1150 Di=Dl+INT(19/4)-2*19 
1200 Di=Dl-INT(Di/7)*7+1 
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1210 IFM0=4ORM0=9THENDl=Dl+1 
1230 IFM0=13THENM0=1:Y=Y+1:GOTOl250 
1 240 IFM0 = 14THENM0=2:Y=Y+1: Di=Dl+1 
1244 IFDl=8THENDl=1 

1 24 5 IF(Y=2100ANDM0>3)OR(Y>2100)THENDl=Dl-1 :IFDl=0THENDl = 
7 

1 24 7 IF(Y=2200ANDM0>3)OR(Y>2200)THENDl= Dl -1 :IFDl=0THENDl = 
7 

1 24 9 IF(Y = 2 300ANDM0> 3)OR(Y>2300)THENDl=Dl-1 :IFDl=0THENDl = 
7 

1250 RETURN 

1400 IF(Y/100=1NT(Y/100))AND(Y/400<>INT(Y/400))THENEl=28: 

GOTO!410 
1405 El=29 
1410 RETURN 

1510 PRINT"{CLR}{GIU'}[<7>]{DES}QUESTO PROGRAMMA STAMPA U 
N {PUR}CALENDARIO" 

1520 PRINT"{DES}ANNUALE[<7>].{GIU'}" 

1530 PRINT"{DES}IMPOSTA L'{PUR}ANNO[<7>] CHE VUOI'STAMPAR 
E" 

1535 PRINT"{DES}(ESEMPIO:{PUR}!985[<7>]){ 2 GIU'}":PRINT" 
{DES}";:INPUTY 

1570 PRINT" {GIU' } {DES}GRAZIE! ADESSO { PUR}ACCENDI [< 7> ] LA 
STAMPANTE" 

1573 PRINT"{DES}E POI SCRIVI {PUR}OK[<7>]{GIU'}" 

1580 INPUT"{DES}";R$ 

1 585 IFR$O"0K"THENl 570 

1 590 PRINT"{GIU'}{DES}STAMPA{GIU' }": FORI = 1TO800 :NEXT:RETU 
RN 


CI6~-pius/4 


Blackjack 


Conosci il Blsckjdck? E un gioco 
facile, in cui il caso ha un ruolo 
molto importante: ma, come 
sempre nei giochi d'azzardo, 
bisogna saper amministrare be¬ 
ne la fortuna... oppure senza 
neanche accorgetene puoi tro¬ 
varti senza più un soldo! 
L'avversario è il tuo Commodo¬ 


re 16, che tiene il Banco,- per co¬ 
minciare disponi di 500 dollari. 
All'inizio di ogni mano vengono 
distribuite due carte a testa, e tu 
devi effettuare la tua puntata,- 
fatto ciò devi decidere se fer¬ 
marti o chiedere altre carte, te¬ 
nendo conto che vince chi tota¬ 
lizza il punteggio più vicino a 
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21. Le figure valgono 10 e le car¬ 
te dal 2 al 10 conservando il lo¬ 
ro valore; per l'asso, Invece, il 
discorso è un pò diverso, in 
quanto puoi scegliere se farlo 
contare 1 oppure 11 a seconda 
di ciò che più ti conviene. In 
particolare, se le tue prime due 
carte sono un asso e una figura, 
hai 21 punti serviti in mano-, in 
questo caso si dice appunto 
che hai il Blackjack, e la vittoria 
è sicura (a meno che non ce 
l'abbia anche il Banco, il quale 
vince a parità di punteggio). 


Se invece hai pochi punti, chie¬ 
di un 'altra carta premendo C (se 
hai meno di 12 sei obbligato a 
farlo). Puoi chiedere anche altre 
carte, ma stati attentose superi 
i 21 punti, " sballi" e perdi la ma¬ 
no! Quando ritieni di avere rag¬ 
giunto un punteggio sufficiente, 
premi B per vedere il gioco del 
computer. Se ti senti sicuro del¬ 
le tue carte, hai la possibilià di 
raddoppiare la posta premen¬ 
do R (puoi farlo una sola volta 
nel corso di una mano e quando 
è il tuo turno). 


10 BL$ = " [< 6 B>]{GIU’}{ 6 SIN}":CL$="{ 6 SPAZl}{GIU'} 

{ 6 SIN}":CN$="{HOME}{ 13 GIU’}" 

20 CA$ = "{ 17 DES}":NL$ = "{ 22 SPAZI}" 

30 C$ = "{ 6 M " :D$ = "-_{GIU' } {SINj-jGIU' } {SINj-jGIU' } {S IN }j- 
{GIU' }{SIN}-jGIU' }{SIN}_-{GIU' }{SIN}-^{GIU' } {SIN }: CR= 5 
00 :DC$ = "{ 2 GIU'}":MZ = 52 
40 VOL8:DIMSS$(3):DIMPC(9):DIMCC(9) 

50 DIMCD$(12) :DIMCN%(12) :FORI = OTOl2 :READCD$(I) :CD$ (I)=CD$ 
(1)+" ":CN%(I)=15:NEXTI 
60 DATAA,2,3,4,5,6,7,8,9,10,J,Q,K 

70 CD$(9)="10":SS$(0)="{RED}S":SS$ ( 1)="{RED}Z":SS$(2)=" 

{BLK}X":SS$(3)="{BLK}A" 

80 PRINT"{CLR}{RED}";TAB(14);"{RVS} BLACKJACK " 

85 IFMZ<1OTHENPRINTTAB(12);"{ 10 GIU'}* NUOVO MAZZO *":FO 
RI = 1T02000:NEXT:GOSUB84 0: GOTO80 
90 PRINT"[<3>] { 2 GIU'}{DES}C{GIU'}{SIN}0{GIU’}{SIN}M 

{GIU’}{SIN}P{GIU , }{SIN}U{GIU , }{SIN}T{GIU'}{SIN}E{GIU'} 
{SIN}R{ 9 GIU'}{SIN}T{GIU’}{SIN}U" 

100 L=0:CX$ = "{ 4 DES}":SQ=0:B = 0:CN=-1 :PN=-1 :DB=0:S = 0 
110 CY$=CN$+DC$:GOSUB32 0:Pl$=DT$:PS = X:PN = 0: PC(PN)=Y:GOSUB 
420 

1 20 CY$=DC$:GOSUB320:Cl$ = DT$:CS=X:CN=0:CC(CN)=Y 
1 30 GOSUB560:CY$=CN$+DC$:DT$ = Pl$ :X=PS:GOSUB380:RC$=CX$:RP 
$=CX$ 

140 PRINTCN$;CA$;"[<7>]{ 2 SPAZI}QUANTO PUNTI{BLK}INPU 
TB$:B=VAL(B$) 

150 PRINTCN$;CA$;NL$ 

160 IFB<1ORB>CRTHENl 40 
170 GOSUB550 

1 80 CY$=CN$+DC$:GOSUB320:PN = PN+1 : PC(PN)=Y:Pl$=DT$:PS=X 
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190 CY$=DC$:CX$=RC$:GOSUB320 :C2$=DT$:CS=X:CN=CN+1:CC(CN) = 
Y 

2 00 CY$=CN$ +DC$:CX$ = RP$:DT$=P1 $ :X=PS:GOSUB380:GOSUB420 
210 IFPV=21THEN290 

220 PRINTCN$;CA$;"[<2>] { 2 SPAZI}{RVS}B{OFF}ASTA 0 {RVS}C 
{OFF}ARTA?"; 

230 GETA$:IFA$=""THEN230 

2 40 IFA$<>"B"ANDA$ < >"C"ANDA$< >"R"THENPRINTCN$;CA$;NL$:SOU 

NDl,350,5:G0T0210 

250 IFA$="C"THENGOSUB320:PN = PN+1 : PC(PN)=Y:GOSUB380:GOSUB4 
20:GOSUB600: GOTO210 
260 IFA$<>"R"ORDB>OORB>CRTHEN280 
270 GOSUB550:DB=1 : GOTO21 0 
280 IFA$<>"B"0RPV<12THEN21 0 
290 S=1:GOSUB570:GOSUB480 
300 GOSUB600 

310 GOSUB320:CN=CN+1:CC(CN)=Y:GOSUB380:GOSUB480 :GOTO300 
320 SOUND3,700,5:Y=INT(RND( 1 )*13) :IFCN%(Y)=0THEN320 
330 DT$=CD$(Y) :X=INT(RND(0)*4) 

340 IF(CN%(Y)AND(2 TX))=0THEN32 0 
350 CN%(Y)=CN%(Y)-2tX:MZ=MZ-l 

360 PRINT"{HOME}{BLK}";CY$;CX$;"U";C$;"I{GIU'}{SIN}";D$;" 
{HOME}";CY$;CX$;"{GIU•}";D$;"{GIU')TsIN}J";C$;"K"; 

3 70 PRINT"{HOME}";CY$;CX$;"{GIU 1 }{DES}";BL$;BL$;BL$;BL$ ; B 

L$;BL$;BL$;BL$;:FORI = lTOl 000 :NEXT: RETURN 
380 CC$ = LEFT$(SS$(X), 1 ) 

390 FORI = lTO500:NEXT:PRINT"{HOME}";CY$;CX$;"{GIU'}{DES}" ; 
CC$;DT$;"{ 4 SPAZI}{GIU'}{ 6 SIN}";SS$(X);" 

{ 5 SPAZI}{GIU*}{ 6 SIN}"; 

400 PRINTCL$;CL$;CL$;CL$;CL$;CL$;:CX$=CX$+"{ 3 DES}" 

410 SOUNDl,1000,3:FORI=lTO500:NEXT:RETURN 

420 PV=0:AC = 0: FORI = 0TOPN:PV=PV+PC(I)+1 :IFPC(I)=0THENPV=PV 
+ 10 :AC=AC+1 

430 IFPC(I)>9THENPV=PV-PC(I)+9 
440 NEXT 

450 IFPV>21ANDAC>0THENPV=PV-10:AC=AC-1:GOTO450 
460 IFPV>2lTHENL=l 
470 RETURN 

480 IFCN< 0THENRETURN 

490 CV=0:AC = 0: FORI = 0TOCN:CV=CV+CC(I)+1 :IFCC(I)=0THENCV=CV 
+10:AC=AC+1 

500 IFCC(I)> 9THENCV=CV-CC(I)+9 
510 NEXT 

520 IFCV> 21ANDAC >0THENCV=CV-10:AC = AC-1:GOTO520 
530 IFCV> 21THENL=-1 
540 RETURN 

550 SQ=SQ+B:PRINTCN$;"[<1>]{GIU'}{DES}PUNTATA{ 2 SPAZl}$ 

{ 8 SPAZI}{ 8 SIN}[<5>]";SQ:CR=CR-B 
560 PRINTCN$ ; " [<1 >] {DES} POSSIEDI ${ 8 SPAZlH 8 SIN}[<5>] 
";CR:RETURN 
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570 PRINT" {HOME} { 3 GIU'H 5 DES } " ; Cl $ ; " {GIU ' } { 2 SIN}";S 
S$ (CS) ;" {GIU'}{ 2 SIN}{ 2 SPAZI}{GIU'}{ 2 SIN} 

{ 2 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}{GIU’}{ 2 SIN} 

{ 2 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZI}{GIU'}{ 2 SIN} 

{ 2 SPAZI}" 

580 SOUNDl , 1 000,3 

590 CY$ =DC$:CX$ =RC$:DT$ =C2$:X=CS:GOSUB380:GOSUB4 80 : RETURN 

600 IFL=1THENPRINTCN?;CA$;"{RED}{ 2 SPAZl}{FLASH ON}HAI S 
BALLATO!{FLASH OFF}"; :SOUNDl , 800,1 0:SOUNDl , 700,20:GOT 
0780 

610 IFL< >-1THEN64 0 

620 PRINTCN$;CA$;NL$;CN$;CA$;"{PUR} { 2 SPAZl}{FLASH ON}HO 
SBALLATO !{FLASH OFF}";:CR=CR+2*SQ 
630 SOUNDl , 800,10 : FORI = 1TO50:NEXT -.SOUNDl , 900,1 0 : GOTO790 
640 IFCV< >21ORCN< >1THEN670 
645 GOSUB570 

650 PRINTCN$;CA$;"{BLK}{ 2 SPAZI}{FLASH ON}HO IL BLACKJAC 
K!{FLASH OFF}"; :SOUNDl ,900,20:IFPV= 21ANDPN=1THENCR=CR 
- 3*SQ 

660 FORI = 1TOl0 :SOUNDl ,800 + 1 0*1 ,1 0:NEXT:CR=CR-SQ:GOTO790 

670 IFS=0THENRETURN 

680 IFPV< >21ORPN< > 1 THEN71 0 

690 PRINTCNS;CA$;"{BLK}{ 2 SPAZl}{FLASH ON}HAI IL BLACKJA 
CK!{FLASH OFF}:CR=CR+3*SQ:GOSUB570 
700 FORI = lTO30:SOUNDl ,300 + 1 0* 1 ,1 0 :SOUND2,4 20 + 1 0*1 ,1 0 :FORJ 
=1TO50:NEXTJ:NEXTI:GOTO790 

710 IFCV<17THENPRINTCN$;CA$;"[<2>] { 4 SPAZI}CARTA... 

{ 4 SPAZI}";: RETURN 
720 IFCV<PVTHEN740 

730 PRINTCN$;CA$;"[<5>]{ 2 SPAZl}HAI PERSO.{ 4 SPAZI}";:S 
OUNDl,700,10 

735 FORI = lTO50:NEXT:SOUNDl ,600,25 :GOTO790 

740 PRINTCN$;CA$;"{GRN}{ 2 SPAZl}HO PERSO.{ 5 SPAZI}"; 

7 50 FORI = 1TOl0 :SOUNDl ,900 + 10*1,10:FORJ = 1TO50:NEXTJ:SOUNDl 
,1 000-10*1 ,10:NEXT 
760 CR=CR+2*SQ 
770 GOTO790 
780 GOSUB570 

790 GOSUB560:PRINTCN$;"{GIU'}{DES}";NL$;CN$;CA$;"{GRN} 

{GIU’}{ 2 SPAZI}UN'ALTRA MANO (S/N)?"; 

800 GETA$:IFA$=""THEN800 
810 IFA$="N"THENSCNCLR:END 
820 IFCR>0THEN80 

830 PRINT CN$;CA$;"[<7>] {FLASH ON}NON HAI PIU' UN SOLDO! 

{FLASH OFF}"; : FORI = 1T050 00:NEXT:SCNCLR:END 
84 0 MZ = 52 : FORI=0TOl2:CN%(I)=15 :NEXT:RETURN 
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Conan 

Prima parte 



Mantenendo la promessa fatta 
nello scorso numero, pubbli¬ 
chiamo la prima delle tre "pun¬ 
tate" di Conan, il sioco che ti 
farà impersonare il più corag¬ 
gioso dei guerrieri, in lotta con¬ 
tro le avversità di una terra sel¬ 
vaggia popolata da ogni sorta 
di creature mostruose e non, al¬ 
la ricerca della mitica Spada 
Fiammeggiante. 

Questo non è il classico tipo di 
gioco in cui bisogna essere abili 
nel maneggiare il joystick; per 
risolvere Conan, e sottolineo ri¬ 
solvere perché è il termine più 
adatto, occorre soprattutto ra¬ 
gionare e riuscire, di volta in 
volta, ad utilizzare la tattica più 
adatta,- comunque giocare sarà 


il modo migliore per impare a 
destreggiarsi in questa avventu¬ 
ra. Non ci dilunghiamo oltre nel¬ 
la spiegazione per due ragioni: 
il programma si spiega da sé ed 
inoltre è meglio lasciarti il gusto 
della sorpresa... 

Quello che dovrai fare questa 
settimana è solamente digitare 
e salvare la prima parte del lista¬ 
to, che come abbiamo già dette 
è diviso in tre "puntate". Nei 
prossimi due numeri di Paper- 
soft Commodore troverai la se¬ 
conda e la terza parte, più o 
meno della stessa lunghezza 
della pirma qui pubblicata,- a 
quel punto sarai pronto per en¬ 
trare nel mondo di Conan! 


1 0 REM ******************************** 

2 0 REM* * ******** *CONAN **************** 

30 REM******************************** 

40 REM -VARIABILI- 
50 DIMNO$ (4) 

60 FO= 50 :ZE=30 :AB=45 :FT=28 :AS = 0:CO$ ="CONAN":MZ = 0:NO = 0:SP = 
0 :SC = 0:PL=0 
70 WY =53280:YW =53281 
90 REM -TITOLO- 

100 PRINT"{CLR}":POKEWY,0 :POKEYW,2 :GOSUB30000 

110 PRINTSPC(10)"{ 4 GIU'}{BLK}{RVS}{ 3 SPAZl}{DES} 

{ 3 SPAZlHDES} [<*>] {DES} {DES}{ 3 SPAZl}{DES} [<*>] 
{DES} " 

120 PRINTSPC(10)"{RVS} { 3 DES} {DES} {DES} {OFF}[<*>] 

{RVS } [ < * >] {DES} {DES} {DES} {OFF}[<*>]{RVS}[<*>] " 

130 PRINTSPC(10)"{RVS} { 3 DES} {DES} {DES} {DES}{OFF} 

[< * >] {RVS} {DES}{ 3 SPAZI}{DES} {DES}{OFF}[<*>]{RVS} 
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140 PRINTSPC(10)"{RVS}{ 3 SPAZI}{DES}{ 3 SPAZI}{DES} 

{ 2 DES} {DES} {DES} {DES} { 2 DES} " 

150 PRINTSPC(10)"{GIU'}IL BARBARO" 

160 PRINTSPC(9)"{ 8 GIU'}ADVENTURE GAME BY LUKE" 

163 REM -LUCE SPADA- 
165 FORA= OTO5 

1 70 FORK=55390TO5540 3: POKER,7 :FORB=lTO30:NEXTB,K 
1 80 FORK= 55390TO5540 3: POKER,0:FORB=1TOl0 :NEXTB.K,A 

1 90 PRINT"{HOME}":FORK=lT02 3:PRINT"{YEL}"SPC(18)"[<K>]":N 

EXT 

2 00 A=55776 :FORK=l 50 4TO1 543 :POKEK,98 :POKEA,7 :A=A+1 :NEXT 
205 REM -SCHERMATA DI APERTURA- 

207 PRINT"{CLR} {HOME} ":POKEYW, 1 :POKEWY,7 

210 PRINT"{BLK}{GIU'}{ 5 DES}0[< 14 Y>]P[< 15 Y>]P" 

220 PRINT"{ 5 DES}[<H>]{ 14 DES}[<M>]{ 15 DES}[<N>]" 

230 PRINT"{ 5 DES}[<H>]{RVS}{BLU}{DES}C{OFF}{BLK}HIUNQUE 
TU{ 2 DES}[<M>]{ 2 DES}GIOSO,SE PEN{DES}[<N>]" 

240 PRINT"{ 5 DES}[<H>]{DES}SIA PREPARA-{DES}[<M>] 

{ 2 DES}SI DI POTERE{DES} [<N>]" 

250 PRINT"{ 5 DES} [<H>] {DES}TI!DOVRAI AF{DES} [<M> ] 

{ 2 DES } FARCELA.{DES}[<N>}" 

260 PRINT"{ 5 DES}[<H>]{DES}FRONTARE LE{ 2 DES}[<M>] 

{ 2 DES}_SEGUIMI 1 {DES} [<N>]" 

270 PRINT"{ 5 DES}[<H>]{DES}PIU'CRUDELI{ 2 DES}[<M>]{DES} 
{BLU}{RVS}{DES}T{OFF}{BLK}I PORTERÒ'{ 2 DES}[<N>]" 

280 PRINT"{ 5 DES}[<H>]{DES{CREATURE DEL{DES}[<M>] 

{ 2 DES}NELLA FREDDA{DES}[<N>]" 

290 PRINT"{ 5 DES} [<H>] {DES}MALE PER VIN{DES} [<M>] 

{ 2 DES}CIMERIA.QUI{ 2 DES}[<N>]" 

300 PRINT"{ 5 DES} [<H>] {DES}CERE! ! !{ 6 DES}[<M>]{ 2 DES} 
SARAI CHIAMA{DES}[<N>]" 

310 PRINT"{ 5 DES}[<H>]{BLU}{RVS}{DES}S{OFF}{BLK}E SEI CO 
RAG{DES}[<M>]{ 2 DES}TO....CONAN!{DES}[<M>]" 

320 PRINT"{ 5 DES}[<H>]{ 14 DES}[<M>]{ 15 DES}[<N>]" 

330 PRINT"{ 5 DES}L[< 14 P>]@[< 15 P>]:GOSUB29000 
350 POKEYW,2 :POKEWY,0:PRINT"XWHT}{RVS}LA TUA MISSIONE SAR 
A'DIFFICILE.{ 9 SPAZI}"; 

360 PRINT"{RVS}DOVRAI RECUPERARE LA SPADA FIAMMEGGIANTE 
{ 2 GIU'} " :GOSUB30000:PRINT"{ 2 GIU'}" 

370 PRINT"{GIU'}{RVS}IO TI GUIDERÒ'ATTRAVERSO LE MILLE DI 
FFI-COLTA 1 CHE DOVRAI SUPERARE."; 

380 PRINT"RICORDA CHE{ 3 SPAZI}SEI ANCORA DEBOLE PER ARRI 

VARE ALLA." 

400 GOSUB29000:GOSUB30050 

410 PRINT"{ 2 GIU'}{WHT}...MONTAGNA LUMINOSA!" 

420 PRINT"E'LA CHE IL SIGNORE DEL MALE CUSTODISCE LA SPAD 
A.PRIMA DI INTRAPREN"; 

430 PRINT"DERE IL VIAG GIO DOVRAI ARMARTI E RINFORZARTI." 
:GOSUB29000 

440 XY=INT(RND(1)* 11) :GOSUB30170 
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450 POKE53280,3:POKE53281 ,1 :PRINT"{BLK}LA FORZA SARA'CIO' 
CHE TI TERRA'IN VITA."; 

455 PRINT" SE ANDRA'A ZERO TU MORIRAI !L'ABILITA'TI SERVIR 
A'NEI COMBATTIMENTI."; 

460 PRINT"CON GLI ZECCHINI POTRAI ACQUISTARE LE ARMI O AL 
TRO.AN CHE LA FORTUNA"; 

465 PRINT"{DES}E'MOLTO IMPORTANTE.TUTTE QUESTE QUALITA'PO 
TRANNO ESSERE AUMENTATE"; 

470 PRINT"NELLE VARIE FASI DI GIOCO.PER AFFRONTAREALCUNI 
AVVERSARI SONO"; 

475 PRINT"NECESSARIE LE ARMIINCANTATE IN VENDITA NELLA CI 
TTA'DI ORMUZ."; 

480 PRINT"INVECE NELLA TORRE MAGICA TROVERAI IL {YEL}MIST 
ICO{BLK} CHE TI DARA'"; 

485 PRINT"INFORMAZIONI PREZIOSE.PER UCCIDERE IL{YEL} SIGN 
ORE DEL MALE"; 

486 PRINT"{BLK} BISOGNA SAPERE"; 

490 PRINT"{DES}IL SUO NOME SEGRETO.IL MISTICOLO SA ! MA ORA 
BASTA...CONAN PARTI!" 

495 PRINT"{RED}{ 2 GIU'}{ 2 DES}.{RVS}CHE GLI DEI SIA 

NO CON TE{OFF}.":GOSUB29000 

500 REM -NOME DEL SIGNORE DEL MALE- 

510 FORK=lT04:A=65+1NT(RND{1)*(26)):NO$(K)=CHR$(A):NEXT 
550 REM -MATTIN0- 
5 55 POKEYW,5 :POKEWY,0 

560 PRINT"{ 2 GIU'}{YEL}";CO$;" {WHT}SVEGLIATI ! E’GlA MATT 

INA.DEVI ALZARTI E DECIDERE_" 

562 GOT030500 
1000 REM -TYRO- 
1005 GOSUB30720 

1010 PRINTSPC(10)"{WHT}{RV3}IN VIAGGIO VERSO TYRO":PE=5:D 
1 = 3 

1020 PRINT"{GIU' }{BLK}STA ANDANDO TUTTO BENE ! NON C'E'NESS 
UNO.":GOSUB29000:GOSUB30780 
1 030 POKEYW,6:POKEWY,0:PRINT"{CLR}" 

1040 PRINTSPC(17)"{RVS}{WHT}{ 2 SPAZl}TYRO{ 2 SPAZI}" 

1 050 PRINTSPC(1 9)"{RVS}{BLK}{ 3 GIU'}{ 16 SPAZI}":PRINTSP 
C(19)"{RVS}{ 2 SPAZI}{YEL}{ 2 SPAZI}{BLK}{ 3 SPAZI} 
{YEL}{ 2 SPAZI}{BLK}{ 3 SPAZl}{YEL}{ 2 SPAZl}{BLK} 

{ 2 SPAZI}" 

1055 PRINT"{RVS}{DES}{ 10 SPAZI}";SPC(8);"{ 2 SPAZl}{YEL} 
{ 2 SPAZI}{BLK}{ 3 SPAZl}{YEL}{ 2 SPAZl}{BLK} 

{ 3 SPAZI}{YEL}{ 2 SPAZl}{BLK}{ 2 SPAZI}" 

1060 PRINT"{RVS}{DES}{ 2 SPAZI}{YEL} {BLK}{ 4 SPAZI}{YEL} 
{BLK}{ 2 SPAZI}";SPC(8); " { 16 SPAZI}" 

1065 PRINT"{RVS}{DES}{ 2 SPAZI}{YEL} {BLK}{ 4 SPAZI}{YEL} 
{BLK}{ 2 SPAZI}{DES}[<4>]{ 7 SPAZl}{BLK}{ 7 SPAZI} 
[<5>]{ 14 SPAZI}" 

1070 PRINT"{SU}{RVS}{DES}{BLK}{ 10 SPAZI}{DES}[<4>] {YEL} 
[<4>] { 2 SPAZI}{YEL} [<4>] { 2 SPAZl}{BLK} 

{ 2 SPAZI}{YEL}{ 2 SPAZl}{BLK}{ 3 SPAZI}[<5>] 
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{ 2 SPAZI}{YEL}{ 2 SPAZI}[<5>]{ 3 SPAZI}{YEL} 

{ 2 SPAZI}[<5>]{ 3 SPAZI}{YEL}{ 2 SPAZI}" 

1075 PRINT"{SU}{RVS}{DES}{BLK}{ 7 SPAZl}{YEL} {BLK} 

{ 2 SPAZI}{DES}[<4>]{ 7 SPAZI}{BLK}{ 2 SPAZI}{YEL} 

{ 2 SPAZI}{BLK}{ 3 SPAZI} [<5>] { 2 SPAZl}{YEL} 

{ 2 SPAZI} [<5>]{ 3 SPAZI}{YEL}{ 2 SPAZI} [<5>] 

{ 3 SPAZI}{YEL}{ 2 SPAZI}" 

1080 PRINT"{SU}{RVS}{DES}{BLK}{ 7 SPAZl}{YEL} {BLK} 

{ 2 SPAZI}[<8>]{ 11 SPAZI}{BLK}{ 4 SPAZI}[<5>] 

{ 14 SPAZI}" 

1085 PRINT"{SU}{RVS}{DES}{BLK}{ 10 SPAZI}[<8>] {YEL} 

{ 2 SPAZI}[<8>]{ 2 SPAZI}{YEL} [<8>]{ 2 SPAZl}{YEL} 

{ 2 SPAZI}[<8>] {BLK}{ 4 SPAZI}[<5>]{ 5 SPAZl}{WHT}T 

AVERNA[<5>]{ 2 SPAZI}" 

1090 PRINT"{SU}{RVS}{DES}{BLK}{ 2 SPAZI}{YEL} {BLK} 

{ 7 SPAZI}[<8>]{ 11 SPAZI}{BLK}{ 4 SPAZI}[<5>] 

{ 14 SPAZI}" 

1095 PRINT"{SU}{RVS}{DES}{BLK}{ 2 SPAZl}{YEL} {BLK} 

{ 7 SPAZI}[<8>] {YEL}{ 2 SPAZI}[<8>]{ 2 SPAZl}{YEL} 

[< 8 >] { 5 SPAZI}{BLK}{ 4 SPAZI} [< 5>] { 7 SPAZl}{BLK} 

{ 2 SPAZI}[<5>]{ 5 SPAZI}" 

2000 PRINT" {SU} {RVS} {DES} {BLK},{ 10 SPAZl}[<8>] 

{ 11 SPAZI}{BLK}{ 4 SPAZI} [< 5>] { 7 SPAZl}{BLK} 

{ 2 SPAZI}[<5>]{ 5 SPAZI}" 

2010 PRINT"{WHTjSEI ENTRATO IN TYRO.A DESTRA VEDI UNA TAV 
ERNA E CI ENTRI." 

2020 GOSUB29000:POKEYW,2 :POKEWY,7 : 

2030 PRINT" {BLK}" ;CO$ ;",MENTRE MANGI ASCOLTI E SENTI . 

.":GOSUB29990 

2040 PRINT"{WHT}1)UN TI RANNOSAURO TERRORIZZA LA POPOLAZIO 
NE DELLA CIMERIA ORIENTALE."; 

2050 PRINT"SONO OFFERTI 50 ZECCHINI A CHI LO UCCIDERÀ'." 
2060 PRINT"2)UN ALCHIMISTA NE PAGHERÀ'100 A CHI GLIPROCUR 
ERA'LE RADICI DELL'"; 

2070 PRINT"ALBERO DELLA VITA CHE CRESCE NELLA FORESTA DEI 
TROLLS." 

2080 PRINT"3)IL CONTE DI YUL CERCA GUERRIERI PER LAVIGlLA 
NZA DEL SUO CASTELLO." 

2090 PRINT"{BLK}{GIU' }ORA SCEGLI O PREMI : 4 PER TORNARE A 
CASA,5 PER LA SITUAZIONE" 

2093 INPUTQ:PRINT"{CLR}" 

2095 IFQ= 5THENGOSUB301 70:GOT02030 

2097 POKEYW,1 :POKEWY,6 :PRINTCO$;",PARTI E BUONA FORTUNA!" 

3000 ONQGOTO3010,5000,8020,30500 

3010 REM -TIRANN- 

3020 PE=9: DI=6 :GOSUB30 7 80 

3030 PRINT"{CLR}":POKEYW,14 

3040 PRINTSPC(1 2)"{RVS}{WHT}IL TIRANNOSAURO" 

3050 PRINTSPC(19)"{RVS}{GRN}{ 3 GIU'}£{ 6 SPAZI}[<*>]{SU} 
{ 5 SIN}{YEL}£{GRN}{ 2 SPAZI}[<*>]{SU } { 2 SIN}£ 
{GIU'}" 
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3060 PRINTSPC (21 ) " {GIU ' } {RVS}£{ 4 SPAZlHGIU'H 6 SIN} 

£ {OFF}£{RVS}{ 3 SPAZI}[<*>]" 

3070 PRINTSPC(23)"{RVS}£{ 3 SPAZI}{GIU'}{ 4 SIN} 

{ 5 SPAZI}[<*>]":PRINTSPC(21 )"{RVS} [<6>]£{ 3 SPAZI} 
{GRN}{ 3 SPAZI}" 

3080 PRINTSPC(21)"[<6>)[<*>]{RVS}{DES}{GRN}{ 4 SPAZl}":PR 
INTSPC(23)"[<6>] { 5 Q}{GIU'}{ 6 SIN}{ 7 Q}" 

3090 PRINTSPC(22)"{ 7 Q}{GIU'}{ 6 SIN}{ 5 Q} " 

4000 PRINTSPC(24)"{RVSÌÌgRN} {BLK} {GRN} {GIU'}{ 3 SIN} 

{BLK} {GRN} " 

4010 PRINT"[<2>] { 2 SU}{DES}{RVS}£{ 9 SPAZI}[<*>]":PRINT" 

{RVS}£{ 12 SPAZI}[<*>]" 

4020 F0RT=TT04 0 :PRINT"{RVS} ";:NEXT 

4070 PRINT"{GIU'}{BLK}ORA DEVI COMBATTERE.E'INUTILE LA FU 
GA!":GOSUB29000:POKE53 2 81 ,1 

4080 NO=1 :NM$ = "TIRANNOSAURO":CM=50:FZ=50:GOSUB60000:ZE=ZE 
+ 50 :AB=AB+5:FO = FO+l0 
4085 NO = 0 

4090 PRINT"OTTIMO LAVOROIORA RIPOSATI PER RIPRENDE RE FOR 
ZA. " 

4100 GOSUB29000 :GOTO3050 0 

5000 REM -TROLLS- 

5010 PE=10 : DI = 7 :GOSUB 30780 

5020 PRINT"{CLR}":POKEWY,1 :POKEYW,0 

5030 PRINTSPC(10)"{RVS}{WHT}LA FORESTA DEI TROLLS" 

5035 PRINT" {RVS} [<6>] { 4 GIU’H 2 DES} £ {GIU'H 2 SIN} 

{ 2 SPAZI}{GIU'}{ 2 SIN}{ 2 SPAZlT{GIU'}{ 2 SIN} 

{OFF} [<*>] {RVS} { 3 SU}"; 

5040 FORS=1T04:FORA=1T033 :PRINT"{RVS} NEXTA:PRINT"":PR 

INT"{ 4 DES}";:NEXT 

5050 PRINT"{RVS}[<2>] { 2 DES}[<2>] [<1>]{ 2 DES} [<1>] 

{ 3 DES} {DES} [<2>] { 2 DES}[<2>] {DES} [<1>] 

{ 2 DES} [ <2>} {DES} [<1>] { 4 DES} [<1>] { 2 DES} 

[<2>] { 4 SU} [<6>] [<*>] {GIU 1 }{ 2 SIN}{ 2 SPAZI} 

{GIU'H 2 SIN}{ 2 SPAZI}{GIU’}{ 2 SIN} {OFF}£" 

5060 PRINT"{GIU'}{ 4 DES}{RVS}[<2>] { 2 DES}[<2>] [<1>] 

{ 2 DES} [<1>]{ 3 DES} {DES}[<2>] { 2 DES}[<2>] 

{DES } [ <1>] { 2 DES} [ < 2>] {DES} [<1>] { 4 DES}[<1>] 

{ 2 DES} [<2>] " 

5080 FORS=lTO3:FORA=lTO40:PRINT"{RVS}{GRN} ";:NEXT:PRINT" 
"; :NEXT 

6000 PRINT"{ 3 GIU'}{DES}{OFFjTUTTO SEMBRA CALMO":GOSUB29 
000 

6010 PRINT"{CLR}":POKEYW,0:POKEWY,0 

6020 PRINT"{WHTjMALEDIZIONE!SEI CADUTO IN UNA BUCA!":GOSU 
B29990 

6030 PRINT"PROBABILMENTE QUESTA E'UNA CAVERNA DEI 

{ 2 SPAZI}TROLLS! INCAMMINATI ." 

6040 GOSUB29990:PRINT"{YEL}LAGGIÙ'C'E'UNA LUCE .":GOSU 

B29990 
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6050 PRINT"{RED}.MA ANCHE UN TROLL ! TI VIENE INCONTROC 

ON UN'ASCIA!":GOSUB8000 

6080 PRINT"(WHT)NON E'ANCORA FINITA!":GOSUB29990 
6085 PRINT"{YEL}UN ALTRO TROLL ARRIVA !":GOSUB8000 

6090 PRINT"{WHT}SEI ORMAI VICINO.":GOSUB29990 

7000 PRINT"{YEL}...L'ULTIMO TROLL PERO'TI ASSALE!":GOSUB8 
000 

70 80 ZE= ZE+10 0 :AB = AB+5:FO=FO+20:NO=0 

7090 PRINT"{CLR}{WHT}ECCO L'ALBERO DELLA VITA!PRENDILO E 
RIPOSATI.":GOSUB29000:GOT030500 
8000 PRINT"{GIU'}{WHT}";CO$;"! DIFENDITI":GOSUB29000 :POKE5 
3281 ,1 

8010 NO=1 :NM$ = "TROLL":CM= 40 :FZ = 30 :GOSUB60000 :POKE53281 ,0: 

POKE53280,0 : RETURN 
8020 REM-CASTELLO- 
8030 PE=6:DI=4:GOSUB30780 
8040 PRINT"{CLR}":POKEYW,4 

8050 PRINTSPC(15)"{RVS}{WHT}IL CASTELLO{ 4 GIU’}" 

8060 PRINTSPC(17)"{BLK}{RVS}[<C>][<V>]{ 3 DES}[<C>][<V>]" 
tPRINTSPC(17)"{RVS}{ 2 SPAZI}{ 3 DES}{ 2 SPAZI}" 

8070 PRINTSPC(17)"{RVS}{ 2 SPAZI}[<5>]{ 3 SPAZl}{BLK} 

{ 2 SPAZI}":PRINTSPC(17)"{RVS}{ 2 SPAZI}[<5>] 

{ 3 SPAZI}{BLK}{ 2 SPAZI}" 

8080 PRINTSPC(15)"{RVS}{GRN}£{ 9 SPAZI}[<*>]":PRINTSPC(14 
)"{RVS}£{ 11 SPAZI}[<*>]" 

8090 FORT=lTOl20 :PRINT"{RVS} "; :NEXT 

9000 PRINT"{OFF}{WHT}":GOSUB29000 

9030 POKEYW,6:T=15+INT(RND(1)*16):ZE=ZE+T 

9040 PRINT"{WHT}IL CONTE DI YUL TI OFFRE{YEL} ";T;"{WHT} 
ZECCHINI" 

9045 PRINT"PER TRE GIORNI DI SERVIZIO" 

9050 PRINT"{CYN}";CO$;"{WHT} DOVRAI SORVEGLIARE I DINTORN 
I DEL CASTELLO.":GOSUB29000 

9060 POKEYW,1 :FORG=lT03:PRINT"{GRN}CORAGGIO ";CO$;" PARTI 

I " 

• 

9070 PRINT"{RVS}{YEL}GIORNATA NUMERO ";G: DI=G:PE=3 :GOSUB3 
0 7 80 :PRINT"{CLR}":NEXT 

9080 PRINT"HAI LAVORATO BENE!{DES}ORA PRENDI LA PAGA E TO 
RNA A CASA!" 

9090 GOSUB29000:GOT030500 
10000 REM -ARYA- 
10010 GOSTJB30720 

10020 PRINTSPC(10)"{WHT}{RVS}IN VIAGGIO VERSO ARYA":PE=8 
:DI = 6 

1 0030 PRINT"{GIU'}{BLK}STA ANDANDO TUTTO BENE ! NON C'E'NES 
SUNO.":GOSUB29000:GOSUB30780 
1 0040 PRINTSPC(18)"{BLU}{RVS}ARYA" 

1 0050 PRINTSPC (20) " {RVS} { 4 GIU'HBLK} {GIU'}{ 2 SIN} 

[<1>]{ 3 SPAZI}{GIU'}{ 5 SIN}[<2>]£{ 5 SPAZl}[<*>]" 
:GOSUB27260:GOSUB29000 
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10150 POKEYW,7 :PRINT"{WHT}SEI ENTRATO NELLA PIAZZA.ORA AS 
COLTA...":GOSUB29000 

10160 POKEYW,5 :PRINT"{BLK}RIESCI A CAPIRE CHE.{GIU'}" 

10170 PRINT"{WHT}1)UNA CAROVANA DIRETTA AD ORMUZ CERCA UN 
GUERRIERO PER "; 

10180 PRINT"LA SCORTA.PAGHERÀ'50 ZECCHINI." 

10190 PRINT"2)YORK,IL MALVAGIO UNNO,HA{DES}RUBATO L'IDOLO 
D'ORO DEL DIO"; 

10200 PRINT"{DES}CROWN.SONO OFFERTI 60 ZECCHINI A CHI LO 
RIPORTERÀ'AL TEMPIO." 

10210 PRINT"3)SI DICE CHE SUI MONTI UN VEGGENTE FAC CIA G 
RANDI PROFEZIE." 

10220 PRINT"{YEL}{ 2 GIU'}ORA RISPONDI CON UN NUMERO OPPU 
RE PREMI:5 PER VEDERE LA TUA"; 

10230 PRINT" SITUAZIONE,4 PER TORNARE A CASA.":INPUTX:PRI 
NT"{CLR}" 

1 0240 IFX>4THENGOSUB301 70 rGOTOl0160 
1 02 50 ONXGOTOl 0270,111 50,11330,30500 
10270 REM -ORMUZ- 

1 0 380 POKEYW,7 :PRINT"{HOME}":FORT=lTO2 80 :PRINT"{RVS} [<7>] 

"; :NEXT 

10390 PRINT"{HOME}PER ARRIVARE AD ORMUZ BISOGNA ATTRAVERS 

ARE IL DESERTO-" 

1 0400 GOSUB2 9000 : DI = 6 :PE = 8 :GOSUB30 7 80 
10410 POKEYW,1 :PRINTSPC(18)"{RVS}{RED}ORMUZ" 

1 0420 PRINTSPC(18)"{ 4 GIU'}{RVS} [<2>] { 3 DES} {GIU'} 

{ 6 SIN}{BLK}£[<2>] [<1>]{ 3 SPAZl}[<2>] {BLK}[<*>] 

• I 

10430 PRINTSPC(17)"{BLK}{RVS}{ 7 SPAZI}":GOSUB27260 
10490 PRINT"{GIU'}{GRNjSEI FINALMENTE ARRIVATO!" 

10500 FO=FO+5:ZE=ZE+50:GOSUB29000 

10510 POKEYW,1tPRINT"{CLR}{GRN}";CO$;"!ORA SCEGLI DOVE AN 
DARE ." 

10520 PRINT"{ 2 GIU'}{RED}1)DALLA MAGA DELLE POZIONI":PRI 
NT"2)DALL'ALCHIMISTA" 

10530 PRINT"3)DALLO STREGONE DELLA FORTUNA" 

1 0540 PRINT"{ 2 GIU'}{BLU}SCEGLI O PREMI : 4 PER TORNARE A 
CASA,5 PER LA SITUAZIONE" 

1 0550 X=0: INPUT X : IFX>4THENGOSUB301 70 :GOTOl0 510 
10 560 PRINT"{CLR}":POKE53281 ,2 :ONXGOTOl 0570,10720,11000,3 
0500 

10570 PRINTSPC(10)"{WHT}{RVS}L'ANTRO DELLA MAGA" 

10580 PRINT"{BLK}{GIU'}ORA SCEGLI COSA COMPRARE ." 

10590 PRINT"{YEL}{ 2 GIU’}1)UNA POZIONE CHE DONA 10 DI FO 
RZA(70 ZECCHINI)" 

10600 PRINT"2)UN FILTRO CHE AUMENTA DI 15 LA FORZA(100 ZE 
CCHINI)" 

10610 PRINT"3)UN INFUSO CHE GENERA 25 DI FORZA(150 ZECCHI 
NI) " 
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10620 PRINT"4)GRAZIE,TORNO TRA POCO!" 

1 0630 PRINT"{WHT}{ 2 GIU'}SCEGLI.":X = 0:INPUT X:IFX>3 

ORX= OTHEN10510 
1 0640 IFX=1THENS = ZE-70 :F = 1 0 
1 0650 IFX= 2THENS = ZE-100 :F = 1 5 
1 0660 IFX= 3THENS = ZE-150 :F = 25 
10700 IFS< OTHENGOSUBl1120:GOTOl0510 
10710 GOSUBl1130 :ZE = S:FO=FO+F:GOTOl0 510 
10720 PRINT"{WHT}{RVS}IL LABORATORIO DELL'ALCHIMISTA" 

1 0730 PRINT"{BLK}{GIU'}ORA SCEGLI COSA COMPRARE." 

10740 PRINT"{YEL}{ 2 GIU'}1)UNA SPADA D'ARGENTO(300 ZECCH 
INI)":PRINT"{RVS}17 PUNTI D 1 ABILITA'" 

10750 PRINT"2)UNO SCUDO D'ORO(200 ZECCHINI)":PRINT"{RVS}1 
0 PUNTI D 1 ABILITA'" 

10760 PRINT"3)UN'ASCIA INCANTATA(250 ZECCHINI)":PRINT" 

{RVS}15 PUNTI D'ABILITÀ'" 

10770 PRINT"4)UNA MAZZA FERRATA(150 ZECCHINI)":PRINT" 

{RVS}7 PUNTI D'ABILITA'" 

10780 PRINT"5)UNA SPADA DI PLATINO(350 ZECCHINI)":PRINT" 
{RVS}20 PUNTI D'ABILITA'" 

10790 PRINT"6)GRAZIE TORNO FRA POCO!" 

1 0800 PRINT"{WHT}{GIU'JSCEGLI.":X=0:INPUT X:IFX>50RX 

= 0THEN1 0510 

10810 IFX=1THENS= ZE-300 :A=17 
1 0820 IFX=2THENS= ZE-200 :A=10 
1 0830 IFX = 3THENS = ZE-250 :A=15 
1 0840 IFX=4THENS = ZE-150 :A=7 
1 0850 IFX=5THENS = ZE-3 50 :A=20 
1 0 860 IFS<OTHENGOSUBl1120 :GOTOl0 510 



Questo gioco è ispirato ad una 
antica leggenda popolare del- 
I'Ari zona, che narra della scom¬ 
parsa di un vecchio cercatore 
d'oro olandese e del suo tesoro 
presso le Montagne Incantate. 
Nella prima schermata devi rac¬ 
cogliere le pepite d'oro sparse 
qua e là, rappresentate da punti 


sullo schermo del tuo C64, cer¬ 
cando nel frattempo di racco¬ 
gliere indizi sul tesoro nascosto. 
Ma il tuo compito è reso più dif¬ 
ficoltoso dalla presenza dei fan¬ 
tasmi dei vecchi cercatori d'oro, 
che ti inseguono e cercano di 
ucciderti. Quando sei riuscito a 
trovare il tesoro (ricordati di 
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"catturare" indizi!) passi al se- giungere l'oro, il tuo punteggio 
condo schema che rappresenta viene moltiplicato per 10. 
la grotta del tesoro, protetto dal Per questo gioco è previsto 
fantasma del vecchio cercatore l'uso del joysick in porta 1, op- 
olandese, che cerca di catturar- pure dei tasti cursore, 
ti; se riesci a scampare e a rag- 


100 REM LA MINIERA MALEDETTA 
1 10 GOSUB71 0 
120 SR=0:GL=2020 

130 PRINT" {HOME}.{ 14 DES } PUNTI : "SR 

1 40 JY = PEEK(563 21 ) :JY=15-(JYANDl5) :K = PEEK(197) :J = PEEK(65 3 
):AL=L 

1 50 POKEL,32:IFJY=1ORJY=50RJY=90R(K=7ANDJ=1)THENAL=AL-40 

1 60 IFJY=20RJY=60RJY=10OR(K=7ANDJ = 0)THENAL=AL+40 

1 70 IF(JY>3ANDJY<7)OR(K=2ANDJ=1 )THENAL=AL- 1 

1 80 IFJY>70R(K=2ANDJ = 0)THENAL=AL+1 

190 IFPEEK(AL)<>160THENL=AL 

200 IFPEEK(L)=GTHEN380 

210 IFPEEK(L)=46THENSR=SR+1 

220 IFPEEK(L)=CLTHENPRINT"(HOME}"TAB(9)"HAI TROVATO LA ST 
ANZA":FORT=lT02000:NEXTT 

230 IFPEEK(L)=CLTHENSR=SR+1 00 :PRINT"{HOME}"TAB(9)" 

{ 21 SPAZI}" 

240 IFL=RLTHEN520 
250 IFL=GLTHEN630 

260 POKEL,I:LY=INT((L-S)/40):LX=L-S-LY*40 

270 NG=3:IFRL=2020THENNG=1 

280 FORX=1TONG:M=G(X):POKEM,32 

290 GY=INT((M-S)/40):GX=M-S-GY*40 

300 IFGX<LXAND(PEEK(M+l)< 50ORPEEK(M+l)=I)THENM=M+1 
310 IFGX>LXAND(PEEK(M-l)<50ORPEEK(M-l)=1)THENM=M-1 
320 IFGY>LYAND(PEEK(M-40)<50ORPEEK(M-40)=I)THENM=M-40 
330 IFGY<LYAND(PEEK(M+40)<50ORPEEK(M+40)=1)THENM=M+40 
340 G(X)=M:POKEM,G:IFG=65THENG=88:GOTO360 
350 IFG=88THENG=65 
360 IFM=LTHEN380 
370 NEXTX: GOTO130 

380 SO=54272 :FORX = 0TO24:POKESO+X,0 :NEXTX 

390 POKESO+14,5:POKESO+18,16:POKESO+3,1 :POKESO+24,143 

400 POKESO+6,2 40 :POKESO+4,6 5 

410 POKE53280,2:Fi=53 89 :FORX = OTOl19:F = Fl+PEEK(SO+27)*3.5 
420 H=INT(F/256):L=F-H*256 

4 30 IFINT(X/l 0)/2 = INT(INT(X/l 0)/2)THENPOKE53280,2:POKE532 
81,2 

440 IFINT(X/l0)/2<>INT(INT(X/l0)/2)THENPOKE53280,14:POKE5 
3281 ,1 

450 POKESO,L:POKESO+1,H:NEXTX 
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460 POKESO+24,0 

470 FORX=lT02000:NEXTX 

480 PRINT"{CLR}":PRINT:PRINT 

490 PRINT"HAI PERSO!":PRINT"IL MIO FANTASMA TI HA CATTURA 
TO! " 

500 PRINT:PRINT"HA HA HA HA HA!" 

510 GOTO680 

520 PRINT"{CLR}":PRINT"{BLK} {RVS}{ 18 SPAZI}" 

530 FORX=1TOl2 :PRINT" {RVS} ";TAB(18);"{RVS} ":NEXTX 
540 PRINT"{BLK} {RVS}{ 18 SPAZI}" 

550 S=1106:B=160 :BX=4 9 

560 FORX=OTOBX:POKES+40*INT(RND(8)*12)+IT(RD(8)*17),B:NEX 
TX 

570 FORX = 55296T0562 95 :POKEX,0 :NEXTX 

580 GL=S + 40*INT(RND(8)* 12)+INT(RND(8)*17) :POKEGL,164 
590 G=88:FORX=lT03:G(X)=1513 :NEXTX:L = S + 8 
600 FORX=1T03:POKEG(X),G:NEXTX:POKEL,I 
610 RL=2020 

620 FORT=1T02 500 :NEXTT: GOTO!30 

630 FORX=lT02000:NEXTX 

640 PRINT"{CLR}":PRINT:PRINT 

650 PRINT"HAI TROVATO IL TESORO!":PRINT:PRINT 
660 PRINT"PUNTEGGIO FINALE:"SR* 1 0 
670 PRINT:PRINT 

680 POKEl98,0:PRINTTAB(13)"{ 2 GIU'}GIOCHI ANCORA";:INPUT 

Q$ 

690 IFLEFT$(Q$,1)="S"THENl 1 0 
700 SYS2048 

710 PRINT"{CLR}{BLK}":POKE53281 , 1 

720 PRINT"{ 9 SPAZI}{RVS} LA MINIERA MALEDETTA {OFF}":PRI 
NT 

730 PRINT"TEMPO FA, SULLE MONTAGNE INCANTATE" 

740 PRINT"DELL’ARIZONA, L'ORO DEL VECCHIO OLANDESE" 

750 PRINT"{SU}ERA STATO SEPOLTO IN UNA GROTTAPRINT 
760 PRINT"CERCA LE GROTTE MA FAI ATTENZIONE AI" 

770 PRINT"FANTASMI (X).":PRINT 

780 PRINT"RACCOGLI LE PEPITE E I MISTERIOSI" 

790 PRINT"INDI ZI ({RVS}?{OFF}) CHE TI AIUTERANNO":PRINT"A 
TROVARE LA STRADA." 

800 PRINT:PRINT:PRINT"USA IL JOYSTICK N.l O I TASTI CURSO 
RE. " 

810 PRINT:PRINT"IMPOSTA L'INIZIALE DEL TUO NOME." 

820 GETI$:IFI$=""THEN820 

830 IFASC(I$)< 6 50RASC(I$)>90THEN820 

840 PRINT"{CLR}":PRINT"{BLK} {RVS}{ 37 SPAZI}" 

850 FORX=1TOl9:PRINT" {RVS} ";TAB(37) ;"{RVS} ":NEXTX 
860 PRINT" {RVS}{ 37 SPAZI}" 

870 S=ll 06:B=160:G=146:CL=1 91 :1 = ASC(I $)- 64 
880 BX=249:C=99 

890 FORX=55296T056295:POKEX,0:NEXTX 
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E in arrivo... 





900 FORX=OTOBX:POKES + 40*INT(RND(8)*19)+INT(RND(8)*35) ,B:N 
EXTX 

910 FORX = OTOC:POKES + 40*INT(RND(8)*19)+INT(RND(8) *35) , 46 :N 
EXTX 

92 0 FORX=0TO3:RL=S + 40*INT(RND(8)*19)+INT(RND(8)*35) : POKER 
L,CL:NEXTX 

930 G=88:G(1)=1428:G(2)=1458:G(3)=1764:L=S+18 
940 FORX=lT03:POKEG(X),G:NEXTX:POKEL,I 
950 RETURN 


C64 


joystick opz 


Invasione 


Gli invasori spazia li sono ormai 
alle porte! La Terra è costretta a 
difendersi con la forza dagli at¬ 
tacchi dei cattivi alieni, e tu sei 
al comando di una batteria anti¬ 
aerea utilizzata per l’occasione 
contro gli UFO. 

Sul video del tuo C64 puoi ve¬ 
dere il mirino della tua batteria 
e TUFO in fase di veloce avvici¬ 
namento. Distruggi la nave alie¬ 
na, che si ingrandisce avvicinan 


dosi a te, il più presto possibile 
per assicurarti un altro punteg¬ 
gio. Ad ogni assalto TUFO è più 
vicino, per cui hai a disposizio¬ 
ne meno tempo per colpirlo. Il 
gioco termina quando una nave 
nemica giunge a terra. 

Per manovrare il mirino usa i ta¬ 
sti di cursore o il joystick; per 
sparare rispettivamente la barra 
spaziatrice o il pulsante “fire". 


100 REM 

110 DIMD(15):GOSUB510 
120 PRINT"{CLR}" 

140 S=0:SR=2000 
150 RA=SR:R=1 

155 FORX= 5 52 96T0562 95 :POKEX,1 :NEXT 
160 EL=1144 + INT(RND(8)*800) :AL=1 524:AC=4 3 
170 El=EL:RA = RA-10 :IFRACl 500THENR=2 
180 IFRA<1000THENR=3 

190 D=INT(RND(8)*16):K=EL+D(D):IFK>1144ANDK<1944THENEL=K 
200 IFRA<10THEN390 

210 FORX=0TO4:POKEEl+X,32 :POKEEL+X,EC(R, X) :NEXT 
220 K=PEEK(197):J=PEEK(653) 
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230 PRINT"{HOME}{WHT}{ 3 SPAZI}PUNTI ="STR$(S)+" 

{ 7 SPAZI}DISTANZA ="STR$(RA)+"{ 2 SPAZI}" 

240 JY=PEEK(56321 ) :FI = JYANDl6:JY=15-(JYANDl5) 

250 Al=AL:IFAL>1104AND(JY=1ORJY=50RJY=90R(K=7ANDJ=1 ) )THEN 
AL=AL-40 

260 IFAL<1945AND(JY=20RJY=60RJY=1OOR(K=7ANDJ=0))THENAL=AL 
+ 40 

270 IFAL>1104AND((JY>3ANDJY<7)OR(K=2ANDJ = 1) )THENAL=AL- 1 
280 IFAL<1945AND(JY>70R(K=2ANDJ=0))THENAL=AL+1 
290 IFFI>0THEN320 

300 POKESO+5,1 : PORESO+ 6,9 :POKESO+2 4,15 

310 POKESO+1,5 :POKESO, 235 :POKESO+4,129 :POKESO+4,128 

320 IFPEEK (Al ) 043AND (FI = 0ORK=60) THEN340 

330 POKEAl ,32:POKEAL,AC :GOTOl70 

340 POKEN,7 :S = S+RA:IFSR>200THENSR=SR- 1 00 

350 FORLO = SOTOSO+24:POKELO,0 :NEXT 

360 POKESO+5,1:POKESO+6,13 :POKESO+24,15 

370 POKESO+1,5:POKESO, 235:POKESO+4,129:POKESO+4,128 

380 FORT=lT02000:NEXTT:POKEN,0 :PRINT"{CLR}":GOTOl 50 

390 POKEN-1,2:POKEN,7 SPRINT"{CLR}{WHT}{ 10 GIU'} 

{ 13 SPAZI}***CRASH***" 

400 FORLO = SOTOSO+24:POKELO,0 :NEXT 

410 POKESO+5,15 :POKESO+6,15:POKESO+24,1 5 

420 POKESO+1 ,1 :POKESO,235:POKESO+4,129:POKESO+4,128 

430 FORX=lT099:IF(PEEK(N)ANDl5)= 7THENPOKEN,2 :GOT0450 

440 POKEN,7 

450 FORT=lT044:NEXT:NEXT 

460 FORT=1T02000:NEXT:POKEl 98,0 

470 POKEN,0 :POKEN- 1 ,6 

480 PRINT:INPUT"GIOCHI ANCORA";Q$ 

490 IFLEFT$(Q$,1)="S"THENl 20 
500 SYS2048 

510 SO=54272:N=53281 :POKEN,0 :PRINT"{CLR}{WHT}" 

520 PRINT"IL TUO COMPITO E' PROTEGGERE IL CIELO" 

530 PRINT"INTERCETTANDO IL NEMICO." 

540 PRINT:PRINT"SPOSTA IL MIRINO COL JOYSTICK" 

550 PRINT"0 CON I TASTI DI CURSORE." 

560 PRINT"PREMI IL PULSANTE O LA BARRA" 

565 PRINT"SPAZIATRICE PER SPARAREPRINT 

570 PRINT"IL GIOCO TERMINA QUANDO L'UFO":PRINT"TI VIENE A 
DDOSSO.":PRINT 
580 PRINT"BUONA FORTUNA!" 

590 FORX=0TO7:READD(X):NEXT 

600 FORX=lT03:FORY=0TO4:READEC(X,Y):NEXT:NEXT 
610 PRINT:PRINT"PREMI UN TASTO PER INIZIARE." 

620 GETQ$:IFQ$=""THEN620 
630 RETURN 

640 DATA-41,-40,-39,-1,1,39,40,41 

6 50 DATA32,1 09,1 25,32,32,32,1 09,42,1 25,32,1 24,67,81 ,67,1 2 
6 
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A Milano, 

in via Mascheroni 14. 

la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel 02-437385 

Vieni a trovarti : ti aspettiamo. 



